home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
pascal
/
xdate.exe
/
TESTPLAT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-02-06
|
1KB
|
52 lines
{*****************************************************************}
{ Author: Michael L. Peters }
{ Date: February 3, 1992 }
{ Purpose: To demonstrate the XDate Unit. }
{ Copywrite (c): Avialable to the public domain }
{ }
{*****************************************************************}
program TestPlatatform;
uses
Dos, Objects, Drivers, Views, App,
XDate;
type
{ TTestPlatatform }
PTestPlatatform = ^TTestPlatatform;
TTestPlatatform = object(TApplication)
Date: PDateView;
constructor Init;
procedure Idle; virtual;
end;
constructor TTestPlatatform.Init;
var
R: TRect;
I: Integer;
begin
TApplication.Init;
GetExtent(R);
R.A.X := R.B.X - 15;R.B.Y := R.A.Y + 1;
Date := New(PdateView, Init(R));
Insert(date);
end;
procedure TTestPlatatform.Idle;
begin
TApplication.Idle;
date^.Update;
end;{
var
Demo: TTestPlatatform;
begin
Demo.Init;
Demo.Run;
Demo.Done;
end.